(readevalloop): Yet another int/Lisp_Object mixup (YAILOM).

diff --git a/src/lread.c b/src/lread.c
index 3097a6b7c3e31b8c351989cd3432a438252b020e..bac5ad4f161b1a385ffe423194e1fb7804d0974b 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1416,7 +1416,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
     }
 
   build_load_history (sourcename, 
-                     stream || (start == BEG && end == Z));
+                     stream || (INTEGERP (start) && INTEGERP (end)
+                                && XINT (start) == BEG && XINT (end) == Z));
 
   UNGCPRO;